﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit") <> "" Then

Dim sid_,keep_,bbsfirstid_,bbsFileSize_,limit_
sid_ = Request.Form("bbsSid")
If sid_ <> "" And ifLetter(sid_)=False Then Call Error("<card title='出错'><p>论坛会话标识无效！")

keep_ = Request.Form("bbsMsgKeep")
If keep_ = "" Or IsNumeric(keep_)=False Or keep_<0 Then Call Error("<card title='出错'><p>消息保存天数无效！")
If keep_>730 Then Call Error("<card title='出错'><p>注册限制最大 730 天，也就是两年！")

limit_ = Request.Form("bbsRegLimit")
If limit_ = "" Or IsNumeric(limit_)=False Or limit_<0 Then Call Error("<card title='出错'><p>注册限制数字无效！")
If limit_>720 Then Call Error("<card title='出错'><p>注册限制最大 720 小时，也就是一个月！")

bbsFileSize_ = Request.Form("bbsFileSize")
If bbsFileSize_ = "" Or IsNumeric(bbsFileSize_)=False Or bbsFileSize_<0 Then bbsFileSize_=500
If bbsFileSize_>10485 Then Call Error("<card title='出错'><p>文件大小限制最大 10485 kb，也就是10M！")


' if len(Request.Form("numTitle"))<1 then
	' Call Error("<card title='出错'><p>请输入！")
' end if

'----------------------------------------------------------------
'	生成bbs.asp文件
'----------------------------------------------------------------
dim HU_Config,HU_File

HU_File= "../../config/bbs.asp"'生成bbs.asp文件路径

HU_Config="<"&"%"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsReg="""&Request.Form("bbsReg")&""" '论坛注册功能"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsAgree="""&forQuote(Request.Form("bbsAgree"))&""" '论坛注册协议"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsRegLimit="""&int(limit_)&""" '论坛注册限制"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsSid="""&sid_&""" '论坛会话标识"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsMoney="""&forQuote(Request.Form("bbsMoney"))&""" '论坛金币名称"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsPoint="""&forQuote(Request.Form("bbsPoint"))&""" '论坛积分名称"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsUserTitle="""&Request.Form("bbsUserTitle")&""" '论坛称号系统"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsLevel="""&Request.Form("bbsLevel")&""" '等级升级难度"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsFileUp="""&Request.Form("bbsFileUp")&""" '文件上传功能"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsFileType="""&LCase(forQuote(Request.Form("bbsFileType")))&""" '文件允许类型"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsFileSize="""&bbsFileSize_&""" '文件大小限制"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsIp="""&Request.Form("bbsIp")&""" 'IP异常检测"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsEssay="""&Request.Form("bbsEssay")&""" '投稿功能"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsMsgKeep="""&int(keep_)&""" '消息保存天数"
HU_Config=HU_Config+chr(13)&chr(10)&"bbsbirthday="""&forQuote(Request.Form("bbsbirthday"))&""" '生日提醒"
HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
Call savetofile(HU_Config,HU_File)
Response.Write "<card id='card2' title='正在返回' ontimer='index.asp?sid="&sid&"'><timer value='10'/><p>"
Response.Write "成功设置！正在返回..."
else
	If bbsFileUp="" Then bbsFileUp="1"'论坛默认允许文件上传
	If bbsFileType="" Then bbsFileType="rar|zip|gif|jpg|png|mp3|wma"'允许文件类型
	If Not ifNum(bbsFileSize) Then bbsFileSize="500"'论坛默认允许文件上传大小(k)
	If bbsRegLimit="" Then bbsRegLimit="0"
%>
<card id="index" title="网站论坛配置">
<p align="left">
注册功能:<select name="bbsReg<%=time_r%>" value="<%=bbsReg%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
注册协议:(支持<a href="../ubbcl.asp?sid=<%=sid%>">UBB</a>)<br/>
<input name="bbsAgree<%=time_r%>" type="text" value="<%=bbsAgree%>" size="30"/><br/>
注册限制:<input name="bbsRegLimit<%=time_r%>" type="text" value="<%=bbsRegLimit%>" size="4"/>(小时)<br/>
会话标识:<input name="bbsSid<%=time_r%>" type="text" value="<%=bbsSidstr%>" size="4"/><br/>
金币名称:<input name="bbsMoney<%=time_r%>" type="text" value="<%=bbsMoney%>" size="4"/><br/>
积分名称:<input name="bbsPoint<%=time_r%>" type="text" value="<%=bbsPoint%>" size="4"/><br/>
称号系统:<select name="bbsUserTitle<%=time_r%>" value="<%=bbsUserTitle%>">
<option value="0">关闭</option>
<option value="1">启用</option>
</select><br/>
升级难度:<select name="bbsLevel<%=time_r%>" value="<%=bbsLevel%>">
<option value="1">简单</option>
<option value="2">中等</option>
<option value="3">困难</option>
</select><br/>
文件上传功能:<select name="bbsFileUp<%=time_r%>" value="<%=bbsFileUp%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
┗类型:<input name="bbsFileType<%=time_r%>" type="text" value="<%=bbsFileType%>"/><br/>
┗大小限制:<input name="bbsFileSize<%=time_r%>" type="text" value="<%=bbsFileSize%>" size="5"/>(kb)<br/>
IP检测:<select name="bbsIp<%=time_r%>" value="<%=bbsIp%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
投稿功能:<select name="bbsEssay<%=time_r%>" value="<%=bbsEssay%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
消息保存:<input name="bbsMsgKeep<%=time_r%>" type="text" value="<%=bbsMsgKeep%>" size="2"/>(天)<br/>
生日提醒:<input name="bbsbirthday<%=time_r%>" type="text" value="<%=bbsbirthday%>"/><br/>
<anchor>保存配置
<go href="bbs.asp?submit=true&amp;sid=<%=sid%>" method="post">
<postfield name="bbsReg" value="$(bbsReg<%=time_r%>)"/>
<postfield name="bbsAgree" value="$(bbsAgree<%=time_r%>)"/>
<postfield name="bbsSid" value="$(bbsSid<%=time_r%>)"/>
<postfield name="bbsMsgKeep" value="$(bbsMsgKeep<%=time_r%>)"/>
<postfield name="bbsIp" value="$(bbsIp<%=time_r%>)"/>
<postfield name="bbsbirthday" value="$(bbsbirthday<%=time_r%>)"/>
<postfield name="bbsEssay" value="$(bbsEssay<%=time_r%>)"/>
<postfield name="bbsMoney" value="$(bbsMoney<%=time_r%>)"/>
<postfield name="bbsFileUp" value="$(bbsFileUp<%=time_r%>)"/>
<postfield name="bbsFileType" value="$(bbsFileType<%=time_r%>)"/>
<postfield name="bbsFileSize" value="$(bbsFileSize<%=time_r%>)"/>
<postfield name="bbsPoint" value="$(bbsPoint<%=time_r%>)"/>
<postfield name="bbsRegLimit" value="$(bbsRegLimit<%=time_r%>)"/>
<postfield name="bbsLevel" value="$(bbsLevel<%=time_r%>)"/>
<postfield name="bbsUserTitle" value="$(bbsUserTitle<%=time_r%>)"/>
</go>
</anchor><br/>
温馨提示<br/>
1、会员生日提醒留空则不显示生日提示,支持UBB<br/>
2、移动手机IP不稳定，最好不要设置IP异常检测<br/>
3、注册限制是限制1个IP多久可重新注册，0为不限制<br/>
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last%>